Libraries

## ── Attaching packages ───────────────────────────────────────── tidyverse 1.2.1 ──
## ✓ ggplot2 3.3.0     ✓ purrr   0.3.3
## ✓ tibble  2.1.3     ✓ dplyr   0.8.3
## ✓ tidyr   1.0.0     ✓ stringr 1.4.0
## ✓ readr   1.3.1     ✓ forcats 0.4.0
## ── Conflicts ──────────────────────────────────────────── tidyverse_conflicts() ──
## x dplyr::filter() masks stats::filter()
## x dplyr::lag()    masks stats::lag()
## 
## Attaching package: 'plotly'
## The following object is masked from 'package:ggplot2':
## 
##     last_plot
## The following object is masked from 'package:stats':
## 
##     filter
## The following object is masked from 'package:graphics':
## 
##     layout

Wrangling the data

Global Data

Yearly CO2 Emissions, 1000 Metric Tonnes

Code

## here() starts at /Users/carriewright/Documents/GitHub/ocs-CO2/ocs-bloomberg-emissions-case-study
## # A tibble: 6 x 265
##   country `1751` `1752` `1753` `1754` `1755` `1756` `1757` `1758` `1759`
##   <chr>    <dbl>  <dbl>  <dbl>  <dbl>  <dbl>  <dbl>  <dbl>  <dbl>  <dbl>
## 1 Afghan…     NA     NA     NA     NA     NA     NA     NA     NA     NA
## 2 Albania     NA     NA     NA     NA     NA     NA     NA     NA     NA
## 3 Algeria     NA     NA     NA     NA     NA     NA     NA     NA     NA
## 4 Andorra     NA     NA     NA     NA     NA     NA     NA     NA     NA
## 5 Angola      NA     NA     NA     NA     NA     NA     NA     NA     NA
## 6 Antigu…     NA     NA     NA     NA     NA     NA     NA     NA     NA
## # … with 255 more variables: `1760` <dbl>, `1761` <dbl>, `1762` <dbl>,
## #   `1763` <dbl>, `1764` <dbl>, `1765` <dbl>, `1766` <dbl>, `1767` <dbl>,
## #   `1768` <dbl>, `1769` <dbl>, `1770` <dbl>, `1771` <dbl>, `1772` <dbl>,
## #   `1773` <dbl>, `1774` <dbl>, `1775` <dbl>, `1776` <dbl>, `1777` <dbl>,
## #   `1778` <dbl>, `1779` <dbl>, `1780` <dbl>, `1781` <dbl>, `1782` <dbl>,
## #   `1783` <dbl>, `1784` <dbl>, `1785` <dbl>, `1786` <dbl>, `1787` <dbl>,
## #   `1788` <dbl>, `1789` <dbl>, `1790` <dbl>, `1791` <dbl>, `1792` <dbl>,
## #   `1793` <dbl>, `1794` <dbl>, `1795` <dbl>, `1796` <dbl>, `1797` <dbl>,
## #   `1798` <dbl>, `1799` <dbl>, `1800` <dbl>, `1801` <dbl>, `1802` <dbl>,
## #   `1803` <dbl>, `1804` <dbl>, `1805` <dbl>, `1806` <dbl>, `1807` <dbl>,
## #   `1808` <dbl>, `1809` <dbl>, `1810` <dbl>, `1811` <dbl>, `1812` <dbl>,
## #   `1813` <dbl>, `1814` <dbl>, `1815` <dbl>, `1816` <dbl>, `1817` <dbl>,
## #   `1818` <dbl>, `1819` <dbl>, `1820` <dbl>, `1821` <dbl>, `1822` <dbl>,
## #   `1823` <dbl>, `1824` <dbl>, `1825` <dbl>, `1826` <dbl>, `1827` <dbl>,
## #   `1828` <dbl>, `1829` <dbl>, `1830` <dbl>, `1831` <dbl>, `1832` <dbl>,
## #   `1833` <dbl>, `1834` <dbl>, `1835` <dbl>, `1836` <dbl>, `1837` <dbl>,
## #   `1838` <dbl>, `1839` <dbl>, `1840` <dbl>, `1841` <dbl>, `1842` <dbl>,
## #   `1843` <dbl>, `1844` <dbl>, `1845` <dbl>, `1846` <dbl>, `1847` <dbl>,
## #   `1848` <dbl>, `1849` <dbl>, `1850` <dbl>, `1851` <dbl>, `1852` <dbl>,
## #   `1853` <dbl>, `1854` <dbl>, `1855` <dbl>, `1856` <dbl>, `1857` <dbl>,
## #   `1858` <dbl>, `1859` <dbl>, …
##            Country               Year CO2 Emissions (Mg) 
##        "character"        "character"          "numeric"
##    Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
##    1751    1817    1882    1882    1948    2014
## Warning: Removed 33099 row(s) containing missing values (geom_path).

Yearly Growth in GDP per Capita

Code

Michael Need to determine units for this

## # A tibble: 6 x 220
##   country   `1801`   `1802`   `1803`   `1804`   `1805`   `1806`   `1807`
##   <chr>      <dbl>    <dbl>    <dbl>    <dbl>    <dbl>    <dbl>    <dbl>
## 1 Afghan… NA       NA       NA       NA       NA       NA       NA      
## 2 Albania  0.104    0.104    0.104    0.104    0.104    0.104    0.104  
## 3 Algeria -0.00247 -0.00247 -0.00247 -0.00247 -0.00247 -0.00247 -0.00247
## 4 Andorra  0.166    0.166    0.166    0.166    0.166    0.166    0.166  
## 5 Angola   0.425    0.425    0.425    0.425    0.425    0.425    0.425  
## 6 Antigu… NA       NA       NA       NA       NA       NA       NA      
## # … with 212 more variables: `1808` <dbl>, `1809` <dbl>, `1810` <dbl>,
## #   `1811` <dbl>, `1812` <dbl>, `1813` <dbl>, `1814` <dbl>, `1815` <dbl>,
## #   `1816` <dbl>, `1817` <dbl>, `1818` <dbl>, `1819` <dbl>, `1820` <dbl>,
## #   `1821` <dbl>, `1822` <dbl>, `1823` <dbl>, `1824` <dbl>, `1825` <dbl>,
## #   `1826` <dbl>, `1827` <dbl>, `1828` <dbl>, `1829` <dbl>, `1830` <dbl>,
## #   `1831` <dbl>, `1832` <dbl>, `1833` <dbl>, `1834` <dbl>, `1835` <dbl>,
## #   `1836` <dbl>, `1837` <dbl>, `1838` <dbl>, `1839` <dbl>, `1840` <dbl>,
## #   `1841` <dbl>, `1842` <dbl>, `1843` <dbl>, `1844` <dbl>, `1845` <dbl>,
## #   `1846` <dbl>, `1847` <dbl>, `1848` <dbl>, `1849` <dbl>, `1850` <dbl>,
## #   `1851` <dbl>, `1852` <dbl>, `1853` <dbl>, `1854` <dbl>, `1855` <dbl>,
## #   `1856` <dbl>, `1857` <dbl>, `1858` <dbl>, `1859` <dbl>, `1860` <dbl>,
## #   `1861` <dbl>, `1862` <dbl>, `1863` <dbl>, `1864` <dbl>, `1865` <dbl>,
## #   `1866` <dbl>, `1867` <dbl>, `1868` <dbl>, `1869` <dbl>, `1870` <dbl>,
## #   `1871` <dbl>, `1872` <dbl>, `1873` <dbl>, `1874` <dbl>, `1875` <dbl>,
## #   `1876` <dbl>, `1877` <dbl>, `1878` <dbl>, `1879` <dbl>, `1880` <dbl>,
## #   `1881` <dbl>, `1882` <dbl>, `1883` <dbl>, `1884` <dbl>, `1885` <dbl>,
## #   `1886` <dbl>, `1887` <dbl>, `1888` <dbl>, `1889` <dbl>, `1890` <dbl>,
## #   `1891` <dbl>, `1892` <dbl>, `1893` <dbl>, `1894` <dbl>, `1895` <dbl>,
## #   `1896` <dbl>, `1897` <dbl>, `1898` <dbl>, `1899` <dbl>, `1900` <dbl>,
## #   `1901` <dbl>, `1902` <dbl>, `1903` <dbl>, `1904` <dbl>, `1905` <dbl>,
## #   `1906` <dbl>, `1907` <dbl>, …
##               Country                  Year GDP Growth/Capita (%) 
##           "character"           "character"             "numeric"
##    Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
##    1801    1863    1915    1915    1967    2019

Energy Use per Person

Code

## # A tibble: 6 x 57
##   country `1960` `1961` `1962` `1963` `1964` `1965` `1966` `1967` `1968`
##   <chr>    <dbl>  <dbl>  <dbl>  <dbl>  <dbl>  <dbl>  <dbl>  <dbl>  <dbl>
## 1 Albania     NA     NA     NA     NA     NA     NA     NA     NA     NA
## 2 Algeria     NA     NA     NA     NA     NA     NA     NA     NA     NA
## 3 Angola      NA     NA     NA     NA     NA     NA     NA     NA     NA
## 4 Antigu…     NA     NA     NA     NA     NA     NA     NA     NA     NA
## 5 Argent…     NA     NA     NA     NA     NA     NA     NA     NA     NA
## 6 Armenia     NA     NA     NA     NA     NA     NA     NA     NA     NA
## # … with 47 more variables: `1969` <dbl>, `1970` <dbl>, `1971` <dbl>,
## #   `1972` <dbl>, `1973` <dbl>, `1974` <dbl>, `1975` <dbl>, `1976` <dbl>,
## #   `1977` <dbl>, `1978` <dbl>, `1979` <dbl>, `1980` <dbl>, `1981` <dbl>,
## #   `1982` <dbl>, `1983` <dbl>, `1984` <dbl>, `1985` <dbl>, `1986` <dbl>,
## #   `1987` <dbl>, `1988` <dbl>, `1989` <dbl>, `1990` <dbl>, `1991` <dbl>,
## #   `1992` <dbl>, `1993` <dbl>, `1994` <dbl>, `1995` <dbl>, `1996` <dbl>,
## #   `1997` <dbl>, `1998` <dbl>, `1999` <dbl>, `2000` <dbl>, `2001` <dbl>,
## #   `2002` <dbl>, `2003` <dbl>, `2004` <dbl>, `2005` <dbl>, `2006` <dbl>,
## #   `2007` <dbl>, `2008` <dbl>, `2009` <dbl>, `2010` <dbl>, `2011` <dbl>,
## #   `2012` <dbl>, `2013` <dbl>, `2014` <dbl>, `2015` <dbl>
##                         Country                            Year 
##                     "character"                     "character" 
## Energy Use (kg, oil-eq./capita) 
##                       "numeric"
##    Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
##    1960    1974    1988    1988    2001    2015
## Warning: Removed 3203 row(s) containing missing values (geom_path).

Crude Mortality Rate

Code

## New names:
## * `` -> ...3
## * `` -> ...4
## * `` -> ...5
## * `` -> ...6
## * `` -> ...7
## * … and 57 more problems
## # A tibble: 6 x 64
##   `Data Source` `World Developm… ...3  ...4  ...5  ...6  ...7  ...8  ...9 
##   <chr>         <chr>            <chr> <chr> <chr> <chr> <chr> <chr> <chr>
## 1 Last Updated… 43819            <NA>  <NA>  <NA>  <NA>  <NA>  <NA>  <NA> 
## 2 <NA>          <NA>             <NA>  <NA>  <NA>  <NA>  <NA>  <NA>  <NA> 
## 3 Country Name  Country Code     Indi… Indi… 1960  1961  1962  1963  1964 
## 4 Aruba         ABW              Deat… SP.D… 6.38… 6.24… 6.11… 6.01… 5.91…
## 5 Afghanistan   AFG              Deat… SP.D… 32.2… 31.6… 31.0… 30.5… 30.0…
## 6 Angola        AGO              Deat… SP.D… 27.0… 26.8… 26.6… 26.4… 26.1…
## # … with 55 more variables: ...10 <chr>, ...11 <chr>, ...12 <chr>,
## #   ...13 <chr>, ...14 <chr>, ...15 <chr>, ...16 <chr>, ...17 <chr>,
## #   ...18 <chr>, ...19 <chr>, ...20 <chr>, ...21 <chr>, ...22 <chr>,
## #   ...23 <chr>, ...24 <chr>, ...25 <chr>, ...26 <chr>, ...27 <chr>,
## #   ...28 <chr>, ...29 <chr>, ...30 <chr>, ...31 <chr>, ...32 <chr>,
## #   ...33 <chr>, ...34 <chr>, ...35 <chr>, ...36 <chr>, ...37 <chr>,
## #   ...38 <chr>, ...39 <chr>, ...40 <chr>, ...41 <chr>, ...42 <chr>,
## #   ...43 <chr>, ...44 <chr>, ...45 <chr>, ...46 <chr>, ...47 <chr>,
## #   ...48 <chr>, ...49 <chr>, ...50 <chr>, ...51 <chr>, ...52 <chr>,
## #   ...53 <chr>, ...54 <chr>, ...55 <chr>, ...56 <chr>, ...57 <chr>,
## #   ...58 <chr>, ...59 <chr>, ...60 <chr>, ...61 <chr>, ...62 <chr>,
## #   ...63 <chr>, ...64 <chr>
##            Country               Year Deaths/1000 People 
##        "character"        "character"        "character"
##    Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
##    1960    1975    1990    1990    2004    2019
## Warning: Removed 1477 row(s) containing missing values (geom_path).

## Warning: Removed 2 row(s) containing missing values (geom_path).

US-specific Data

Analysis dataframe

## [1] "Country"            "Year"               "CO2 Emissions (Mg)"
## [1] "Country"               "Year"                  "GDP Growth/Capita (%)"
## [1] "Country"                         "Year"                           
## [3] "Energy Use (kg, oil-eq./capita)"
## [1] "Country"            "Year"               "Deaths/1000 People"
## [1] TRUE
## [1] TRUE
##     Country        Year   Indicator       Value      Region        Type 
## "character" "character" "character"   "numeric" "character" "character"
##     Country        Year   Indicator       Value      Region        Type 
##    "factor"   "numeric" "character"   "numeric" "character" "character"

Subsetting the data

US-specific

## Warning: Removed 1 row(s) containing missing values (geom_path).

## `geom_smooth()` using method = 'loess' and formula 'y ~ x'

## Warning: Removed 2 rows containing missing values (geom_segment).